5 A=1:B=-1:C=40:D=-40:E=10:P=54272
10 PRINTCHR$(147):POKE53280,0:POKE53281,0
20 V=INT(1000*RND(1))+1024::Q=INT(15*RND(1))+1
30 N=INT(E*RND(1))+1:Z=INT(E*RND(1))+1
40 IFV+N<1024THEN:V=V-N:GOTO20
45 IFV+N>2023THEN:V=V-N:GOTO20
50 IFV-N<1024THEN:V=V+N:GOTO20
55 IFV-N>2023THEN:V=V+N:GOTO20
60 IFV+(40*Z)<1024THEN:V=V-(40*Z):GOTO20
65 IFV+(40*Z)>2023THEN:V=V-(40*Z):GOTO20
70 IFV-(40*Z)<1024THEN:V=V+(40*Z):GOTO20
75 IFV-(40*O)>2023THEN:V=V+(40*Z):GOTO20
80 FORX=1TON:POKEV+A,67:POKEV+A+P,Q:V=V+A:NEXT
90 POKEV,75:POKEV+P,Q
100 FORX=1TOZ:POKEV+D,66:POKEV+D+P,Q:V=V+D:NEXT
110 POKEV,73:POKEV+P,Q
120 FORX=1TON:POKEV+B,67:POKEV+B+P,Q:V=V+B:NEXT
130 POKEV,85:POKEV+P,Q
140 FORX=1TOZ:POKEV+C,66:POKEV+C+P,Q:V=V+C:NEXT
150 POKEV,74:POKEV+P,Q
160 GOTO20